home *** CD-ROM | disk | FTP | other *** search
- //Language: TclTk
- //Copyright (c) 1992-2002 Altium Limited
- //All rights reserved.
- //http://www.dream-com.com
- //contact@dream-com.com
-
- // states
- State=snormal
- State=sstring
- State=scomment
- // tokens
- Token=tnone
- Token=tstring
- Token=tcomment
- Token=tident
- Token=tinteger
- Token=tfloat
- Token=tresword
- Token=tassembler
- Token=turl
- Token=twhitespace
- Token=tdirective
- //delims
- Delimiters=;.,:'"{}[]()?!@#$%^&*-+=|\/
-
- // reswords
- snormal 'AFTER' snormal tresword
- snormal 'APPEND' snormal tresword
- snormal 'ARRAY' snormal tresword
- snormal 'BELL' snormal tresword
- snormal 'BGERROR' snormal tresword
- snormal 'BINARY' snormal tresword
- snormal 'BIND' snormal tresword
- snormal 'BINDIDPROC' snormal tresword
- snormal 'BINDPROC' snormal tresword
- snormal 'BINDTAGS' snormal tresword
- snormal 'BITMAP' snormal tresword
- snormal 'BREAK' snormal tresword
- snormal 'BUTTON' snormal tresword
- snormal 'CANVAS' snormal tresword
- snormal 'CATCH' snormal tresword
- snormal 'CD' snormal tresword
- snormal 'CHECKBUTTON' snormal tresword
- snormal 'CLIPBOARD' snormal tresword
- snormal 'CLOCK' snormal tresword
- snormal 'CLOSE' snormal tresword
- snormal 'CONCAT' snormal tresword
- snormal 'CONTINUE' snormal tresword
- snormal 'DESTROY' snormal tresword
- snormal 'ELSE' snormal tresword
- snormal 'ENTRY' snormal tresword
- snormal 'EOF' snormal tresword
- snormal 'ERROR' snormal tresword
- snormal 'EVAL' snormal tresword
- snormal 'EVENT' snormal tresword
- snormal 'EXEC' snormal tresword
- snormal 'EXIT' snormal tresword
- snormal 'EXPR' snormal tresword
- snormal 'FBLOCKED' snormal tresword
- snormal 'FCONFIGURE' snormal tresword
- snormal 'FCOPY' snormal tresword
- snormal 'FILE' snormal tresword
- snormal 'FILEEVENT' snormal tresword
- snormal 'FILENAME' snormal tresword
- snormal 'FLUSH' snormal tresword
- snormal 'FOCUS' snormal tresword
- snormal 'FONT' snormal tresword
- snormal 'FOR' snormal tresword
- snormal 'FOREACH' snormal tresword
- snormal 'FORMAT' snormal tresword
- snormal 'FRAME' snormal tresword
- snormal 'GETS' snormal tresword
- snormal 'GLOB' snormal tresword
- snormal 'GLOBAL' snormal tresword
- snormal 'GRAB' snormal tresword
- snormal 'GRID' snormal tresword
- snormal 'HISTORY' snormal tresword
- snormal 'HTTP' snormal tresword
- snormal 'IF' snormal tresword
- snormal 'IMAGE' snormal tresword
- snormal 'INCR' snormal tresword
- snormal 'INFO' snormal tresword
- snormal 'INTERP' snormal tresword
- snormal 'JOIN' snormal tresword
- snormal 'LABEL' snormal tresword
- snormal 'LAPPEND' snormal tresword
- snormal 'LIBRARY' snormal tresword
- snormal 'LINDEX' snormal tresword
- snormal 'LINSERT' snormal tresword
- snormal 'LIST' snormal tresword
- snormal 'LISTBOX' snormal tresword
- snormal 'LLENGTH' snormal tresword
- snormal 'LOAD' snormal tresword
- snormal 'LOADTK' snormal tresword
- snormal 'LOWER' snormal tresword
- snormal 'LRANGE' snormal tresword
- snormal 'LREPLACE' snormal tresword
- snormal 'LSEARCH' snormal tresword
- snormal 'LSORT' snormal tresword
- snormal 'MENU' snormal tresword
- snormal 'MESSAGE' snormal tresword
- snormal 'NAMESPACE' snormal tresword
- snormal 'NAMESPUPD' snormal tresword
- snormal 'OPEN' snormal tresword
- snormal 'OPTION' snormal tresword
- snormal 'OPTIONS' snormal tresword
- snormal 'PACK' snormal tresword
- snormal 'PACKAGE' snormal tresword
- snormal 'PHOTO' snormal tresword
- snormal 'PID' snormal tresword
- snormal 'PKG_MKINDEX' snormal tresword
- snormal 'PLACE' snormal tresword
- snormal 'PROC' snormal tresword
- snormal 'PUTS' snormal tresword
- snormal 'PWD' snormal tresword
- snormal 'RADIOBUTTON' snormal tresword
- snormal 'RAISE' snormal tresword
- snormal 'READ' snormal tresword
- snormal 'REGEXP' snormal tresword
- snormal 'REGISTRY' snormal tresword
- snormal 'REGSUB' snormal tresword
- snormal 'RENAME' snormal tresword
- snormal 'RESOURCE' snormal tresword
- snormal 'RETURN' snormal tresword
- snormal 'RGB' snormal tresword
- snormal 'SAFEBASE' snormal tresword
- snormal 'SCALE' snormal tresword
- snormal 'SCAN' snormal tresword
- snormal 'SEEK' snormal tresword
- snormal 'SELECTION' snormal tresword
- snormal 'SEND' snormal tresword
- snormal 'SENDOUT' snormal tresword
- snormal 'SET' snormal tresword
- snormal 'SOCKET' snormal tresword
- snormal 'SOURCE' snormal tresword
- snormal 'SPLIT' snormal tresword
- snormal 'STRING' snormal tresword
- snormal 'SUBST' snormal tresword
- snormal 'SWITCH' snormal tresword
- snormal 'TCL' snormal tresword
- snormal 'TCLVARS' snormal tresword
- snormal 'TELL' snormal tresword
- snormal 'TEXT' snormal tresword
- snormal 'THEN' snormal tresword
- snormal 'TIME' snormal tresword
- snormal 'TK' snormal tresword
- snormal 'TK_BISQUE' snormal tresword
- snormal 'TK_CHOOSECOLOR' snormal tresword
- snormal 'TK_DIALOG' snormal tresword
- snormal 'TK_FOCUSFOLLOWSMOUSE' snormal tresword
- snormal 'TK_FOCUSNEXT' snormal tresword
- snormal 'TK_FOCUSPREV' snormal tresword
- snormal 'TK_GETOPENFILE' snormal tresword
- snormal 'TK_GETSAVEFILE' snormal tresword
- snormal 'TK_MESSAGEBOX' snormal tresword
- snormal 'TK_OPTIONMENU' snormal tresword
- snormal 'TK_POPUP' snormal tresword
- snormal 'TK_SETPALETTE' snormal tresword
- snormal 'TKERROR' snormal tresword
- snormal 'TKVARS' snormal tresword
- snormal 'TKWAIT' snormal tresword
- snormal 'TOPLEVEL' snormal tresword
- snormal 'TRACE' snormal tresword
- snormal 'UNKNOWN' snormal tresword
- snormal 'UNSET' snormal tresword
- snormal 'UPDATE' snormal tresword
- snormal 'UPLEVEL' snormal tresword
- snormal 'UPVAR' snormal tresword
- snormal 'VARIABLE' snormal tresword
- snormal 'VWAIT' snormal tresword
- snormal 'WHILE' snormal tresword
- snormal 'WINFO' snormal tresword
- snormal 'WM' snormal tresword
-
- // numbers
- snormal [1-9][0-9]* snormal tinteger
- snormal [1-9][0-9]*\.[0-9]* snormal tfloat
- snormal [1-9][0-9]*{\.[0-9]+}|e{[\+\-]}|[0-9]+ snormal tfloat
-
- //idents
-
- snormal [$a-z_A-Z][a-z_A-Z0-9]* snormal tident
-
- //white space
- snormal #32* snormal twhitespace
-
- //comments
- snormal [#32]*\# scomment tcomment
- scomment [#1-#255]* snormal tcomment
- scomment $ snormal tcomment
-
- //strings
- snormal \" sstring tstring
- sstring [^\"]* sstring tstring
- sstring \" snormal tstring
- sstring \"\" sstring tstring
- sstring \\ sstring tstring
- sstring \\\" sstring tstring
- sstring $ snormal tstring
-